(define (car x) (builtin car x))
(define (cdr x) (builtin cdr x))
(define (cons x y) (builtin cons x y))
(define (null? x) (builtin null? x))
(define (pair? x) (builtin pair? x))
(define (eq? x y) (builtin eq? x y))
(define (number? x) (builtin number? x))
(define (symbol? x) (builtin symbol? x))

(define (not p) (if p #f #t))

(define (newline) (builtin newline))
(define (display x) (builtin display x))
(define (print x) (builtin print x))

(define (exit n) (builtin exit n))
(define (error e)
  (print e)
  (exit 1))

(define (make-vector n) (builtin make-vector n))
(define (vector-length v) (builtin vector-length v))
(define (vector-ref v i) (builtin vector-ref v i))
(define (vector-set! v i x) (builtin vector-set! v i x))

(define (string-length s) (builtin string-length s))
(define (string-ref s n) (builtin string-ref s n))
